home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / pvmfaddmhf.m4 < prev    next >
Text File  |  1997-07-22  |  432b  |  24 lines
  1.  
  2. /* $Id: pvmfaddmhf.m4,v 1.4 1997/05/13 17:58:55 pvmsrc Exp $ */
  3.  
  4. #include "pvm3.h"
  5. #include "pvm_consts.h"
  6.  
  7. void
  8. FUNCTION(pvmfaddmhf) ARGS(`src, tag, ctx, mid, foo, info')
  9. #ifdef IMA_UXPM
  10. int (**foo)(); /* correction for Fujitsu FORTRAN77 EX */
  11. #else
  12. int (*foo)();
  13. #endif
  14. int *src, *tag, *ctx, *mid, *info;
  15. {
  16. #ifdef IMA_UXPM
  17.     *info = pvm_addmhf(*src, *tag, *ctx, *foo);
  18. #else
  19.     *info = pvm_addmhf(*src, *tag, *ctx, foo);
  20. #endif
  21.  
  22. }
  23.  
  24.